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G09B 

f - ,, -- 

CR 

SS 

$9B 

0005 

GETREC 


5 

0009 

PUTREC 

= 

9 

0342 

ICCOM 

— 

$342 

0344 

ICBAL 


$344 

0348 

ICBLL 

=2 

$348 

E456 

CIOV 

s= 

$E456 

f 

0006 

FPREC 

= 

6 

D8QQ 

t 

.. AFP 


$D800 

D8E6 

FASC 


$D8E6 

D9AA 

IFP _ 

SS 

$D9AA 

D9D2 

i 

FPI 


$D9D2 

DA60 

FSUB 

5= 

$DA60 

DA66 

FADD 

= 

$DA66 

DADB 

FMUL 

= 

$DADB 

DB28 

FDI V 

SS 

$DB28 

DD89 

FLOOR 

SS 

$DD89 

DD98 

FLD1R 

= 

$DD98 

DDA7 

^ FSTOR. 

SS 

$DDA7 

DD36 

FMOVE 

SS 

$DDB6 

DD40 

PLYEVL 

= 

$DD40 


r r\AYY^ 

TITLE 'COLLEEN FLOATING POINT ROUTINES BY C SHAW ' 0 

MORE ACCURATE VERSIONS OF THE FOLLOWING SHEPARD50N ROUTINES: 

EXP/ EXP 10/ LOG/ LOGIOz SIN/ COS/ ATAN, SQR AND POWER 

THESE ROUTINES WERE TAKEN FROM THE CALCULATOR CARTRIDGE AND MODIFIED. 

MANY OTHER MATH FUNCTIONS SUCH AS TAN, ARCSIN AND ARCCOS ARE ALSO 
INCLUDED IN THAT CARTRIDGE. 

; ATASC 1 1 CARRIAGE RETURN 

i GET RECORD 
; PUT RECORD 














FLOATING POINT SUBROUTINES 

i FLOATING PT PRECISION (# OF BYTES) 

IF CARRY USED THEN CARRY CLEAR => NO ERROR, 
i ASCI I -^FLOATING POINT (FP) 

INBUFF+C I X -> FRO, CIX, CARRY 
i FP -:> ASCII FRO-> LBUFF (INBUFF) 

, INTEGER -> FP 


CARRY SET => ERROR 


0-$FFFF ( LSB, MSB ) 

FP -> INTEGER 
FRO <- FRO - FR1 , 
FRO <- FRO + FR1 , 
FRO <- FRO * FR 1 , 

i FRO <- FRO / FR 1 , 

FLOATING LOAD REGO 
" " REG1 


IN FRO, FR0+1->FR0 
FRO -> FRO, FRO+1, 

, CARRY 


CARRY 


CARRY 
CARRY 
CARRY 
FRO 
FR 1 

‘LOATING STORE REGO <X,Y> 
FR 1 <- FRO 

FRO <- P(Z) = SUM ( I=N 
INPUT:„ (X, Y) 


( X, Y) 
(X, Y) 
FRO 


TO 0) (A(I >*Z**I ) 

A(N) , A(N-l). . . A ( 0 ) -> PLYARG 

ACC = # OF COEFFICIENTS = DEGREE* 1 


CARRY 


DDCO 

i 

EXP 

$DDCQ 

FRO = Z 

; FRO <- E**FRO = EXP10(FR0 * LOG 10 ( E ) ) 

CARRY 


DDCC 

EXP 10 

$DDCC 

; FRO <- 10**FR0 CARRY 



DECD 

LOG 

$DECD 

; FRO <- LN(FRO) = L0G10 ( FRO ) /L0G10 (E ) 

CARRY 


DED1 

LOG 10 = 

$DED1 

; FRO <- LOG 10 (FRO) CARRY 




SIN 

COS 

ATAN 

SQR 


$BD81 
$BD73 
$BE43 
$BEB 1 


THE FOLLOWING ARE IN BASIC CARTRIDGE: 

FRO <- SIN(FRO) DEGFLG=0 =>RADS, 6=>DEG. 
FRO <- COS (FRO) CARRY 

FRO O ATAN (FRO) CARRY 

FRO <- SQUAREROOT (FRO) CARRY _ _ 


CARRY 




*=$D4 

00D4 

FRO 

*=*+FPREC 

OODA 

FRE 

*=*+fprec 

OOEO 

FR 1 

*=*+FPREC 

00E6 

FR2 

*=*+FPREC 


/FLOATING POINT ROUTINES ZERO PAGE (NEEDED ONLY IF F. P. ROUTINES ARE CALLED) 

; FP REGO 

; FP REG1 
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OOD4 

OODA 

OOEO 

0Q£6 

FRO 

FRE 

FR1 

FRS 

*=*D4 
*=*+FPREC 
*=*+FPREC 
*“*+FPREC 
* = *-*FPREC 

:EN FLOATING POINT 

ROUTINES 

BY C SHAW 

QOEC 

FRX 

-*==■»•+ 1 

QQED 

EEXP 

*=*+1 

OOEE 

NSIGN 


OOEF 

ES I ON 

*=*-H 

OOFO 

FCHRFLG 

*=*+ 1 

OOF 1 

DIGRT 


OOF 2 

CIX 

*=* + 1 

0QF3 

INBUFF 

*»*+2 

OOFS 

Z TEMPI 

*=*+2 

00F7 

ZTEMP4 

*=*+2 

OQF? 

Z TEMP 3 

#ss*it+2 

OOFB 

RADFLG 

*=*+ 1 

OOFC 

FLPTR 


OOFE 

FPTR2 

*=*+2 


-FLOATING PT ROUTI 

057E 

LBPRl 

*=#+1 

057F 

LBPR2 

*=*+ 1 


.ED) 


FP REGO 


FP RfcGl 


/ FP SPARE 
i VALUE OF E 
SIGN OF # 

SIGN OF EXPONENT 
1ST CHAR FLAG 

# OF DIGITS RIGHT OF DECIMAL 
i CURRENT INPUT INDEX 
POINTS TO USER'S LINE INPUT BUFFER 


;0=RADIANS, 6=BEGREES 
i POINTS TO USER'S FLOATING PT NUMBER 


NON-ZERO PAGE RAM (NEEDED ONLY IF F. P. ROUTINES CALLED 


LBUFF 

PLYARG 

FPSCR 

.FP.SCR.Jt 

FSCR 

FSCR1 


=*+12 


8 


LBUFF+$60 
PLYARG+FPREC 
FPSCR+FPREC 
FPSCR 
FPSCR 1 


; LBUFF PREFIX 1 
;LBUFF PREFIX 2 
/LINE BUFFER 

/POLYNOMIAL ARGUMENTS 
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FP PACKAGE EQUATES FOR SIN, COS, ATAN, AND SQR ROUTINES ETC 


OOOB 

NATCF 

= 

$B 

NUMBER OF ATAN COEFFICIENTS FOR POLYNOMIAL EVALUATION 

0006 

NSCF 

= 

6 

NUMBER OF SIN COEFFICIENTS 

D905 

FASC2 

= 

$D905 

AFTER FASC (FINISH FP TO ASCII CONVERSION) 

D920 

XEFORM 


$D920 

! EFORM PROCESS E FORMAT FOR FP -> ASCII CONVERSION 

D928 

XEFRM2 

=r. 

$D928 

AFTER XEFORM (FINISH CONVERSION) 

DA44 

ZFRO 

3S 

$DA44 

FRO <- 0 

DA46 

ZF1 

s= 

$DA46 

CLEAR 6 BYTES STARTING AT 0, X 

DA51 

INTLBF 

y 

$DA51 

INIT LBUFF INTO INBUFF FOR FP -> ASCII CnNVFRSTnN 

DC 00 

NORM 

= 

$DCOO 

NORMALIZE FLOATING POINT NUMBER - USED BY STRUNC ONLY 

DC 70 

XCVFRO 

= 

$DC70 

1 CVFRO FP TO 10 ASCII DIGITS IN LBUFF 

DE03 

EXP 1 

_3? 

$DE03 

MIDDLE OF EXP 10 WHERE PLYEVL IS CALLED 

DEI 2 q 

EXP 11 

s 

$DE12 

AFTER PLYEVL IN EXP 10 

DE89 

L0G10E 

— 

$DE89 

LOGTEN(E) = .4342944819 

DE95 

XFORM 

rs 

$DE95 

FRO O ( FRO- (X, Y ) ) / (FRO+( X, Y) ) 

DF6C 

FHALF 

= 

$DF6C 

FLOATING POINT CONSTANT . 5 

DFAE 

ATCOEF 

= 

$DFAE 

ATAN COEFFICIENTS 

DFEA 

FP9S 

s= 

$DFEA 

FLOATING POINT CONSTANT .9999999999 (ALMOST I) 

DFFO 

PI0V4 

= 

$DFFO 

FLOATING POINT CONSTANT PI/4 = .7853981634 


#"$480 

0480 QUADFLG #=#+1 

0481 INTFLG *-#+! 

-Q.482 , -FTEM F- »=»+6 


VARIABLES 

; SIN QUADRANT FLAG 
i FLAG FOR POWER ROUTINE 

^TEMPORARY FLOATING POINT REGISTER FOR POWER ROUTINE 
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A OOO START 

AOOO 20 4C AO 
A0Q3 20 B 6 DD 
A006 20 4C AO 


*=$A000 


TEST PROGRAM 


JSR GETNUM 

JSR FMOVE 

JSR GETNUM 


; ARBITRARY STARTING POINT 



; GET 2ND NUMBER FROM E: — OMIT IF ONLY ONE ARGUMENT 


A009 

20 

CE AO 

JSR 

SPOWER ; CHANGE TO GET DIFFERENT ROUTINES 

AOOC 

90 

OA 

f 

BCC 

NOERR 



i 

ERROR 

— DISPLAY MESSAGE 


LDA ttERRMSG 

STA ICBAL 

LDA #ERRMSG/256 

JMP CQNTJW 


AOOE A9 79 
AO 10 8D 44 03 
A01 3 A9 AO 
AO 15 4C 32 AO 


AO 18 NOERR 

AO IS 20 E6 D8 JSR FASC ; FLOATING POINT TO ASCII 

/ . 

; FIND END OF STRING AND CHANGE NEGATIVE # TO POSITIVE AND ADD CARRIAGE RETURN 


AO IB AO FF L.DY #$FF 

AO ID MLOOP 

AO ID C8 I NY 

A01E B 1 F3 LDA < INBUFF), Y 

A020 10 FB BPL MLOOP 

A022 29 7F AND #$7F 

A024 91 F3 STA ( INBUFF), Y 

A026 C8 I NY 

AQ27 A9 9B ___ LDA #CR 

A029 91 F3 STA (INBUFF), Y 


DISPLAY RESULT 


A02B 

A5 

F3 



LDA 

INBUFF 


A02D 

SD 

44 

03 


STA 

ICBAL 


A030 

A5 

F4 



LDA 

INBUFF+1 


A032 




CONTIN 




A032 

8D 

45 

03 


STA 

ICBAL+1 


A035 

A9 

09 



LDA 

#PUTREC 


A037 

8D 

42 

03 


STA 

ICCOM 


A03A 

A9 

28 



LDA 

#40 


A03C 

8D 

48 

03 


STA 

ICBLL 


A03F 

A9 

00 



LDA 

#0 


A04 1 

8D 

49 

03 


STA 

ICBLL+1 


A044 

A2 

00 



LDX 

#0 


A046 

20 

56 

E4 


JSR 

CIOV 


A049 

4C 

00 

AO 


JMP 

START 

; DO IT AGAIN 

A04C 




GETNUM 


; GET 

ONE NUMBER FROM E: (IOCB #0 ) 

A04C A9 

05 



LDA 

#GETR£C 

i GET RECORD (ENDS IN CR) 

A04E 

8D 

42 

03 


STA 

ICCOM 
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A04C 

A04C A9 05 
1-2 


GETNUM 


A04E 8D 42 03 


LDA 
8 ‘ 


«TA 


#GETREC 
1C COM 
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A051 

A9 

80 


LDA 

#LBUFF 

AO 53 

8D 

44 

03 

STA 

ICBAL 

A056 

A9 

05 


LDA 

-t w ku r iIm 

#LBUFF/256 

A058 

8D 

45 

03 

STA 

ICBAL+1 

AQSB 

A9 

28 


LDA 

#40 

A05D 

8D 

48 

03 

STA 

t» r w 

ICBLL. 

A060 

A9 

00 


LDA 

#0 

AQ62 

8D 

49 

03 

STA 

ICBLL+1 

A065 

A2 

00 


LDX 

#0 

A067 

20 

56 

E4 

JSR 

CIOV 

A06A 

A9 

80 


LDA 

#LBUFF 

A06C 

85 

F3 


STA 

li * — wl 1 

INBUFF 

A06E 

A9 

05 


LDA 

#LBUFF/256 

A070 

85 

F4 


STA 

INBUFF+1 

A072 

A9 

00 


LDA 

#0 

A074 

85 

F2 


STA 

CIX 

A076 

4C 

00 

D8 

JMP 

AFP 

A079 

45 

52 

52 

ERRMSG . BYTE 

"ERROR " , CR 

A07C 

4F 

52 

9B 





ONE NUMBER FROM E: ( IOCB #0) 

; GET RECORD (ENDS IN CR ) 


CALL ASCII TO FLOATING POINT AND RETURN 

i INDICATES CARRY SET RETURN FROM FP ROUTINE 










- r - 'Zvrtt l- - ' ‘ 1 • - 







;>s * 

. ***»..♦** w 





A07F 

A07F A2 89 
A081 AO DE 
A083 20 E8 AS 


LDX 

LDY 

JSR 


#L0G10E 

#LQG10E/256 

LDiHUL 


FRO lO-'FRO 


(SEE COMMENTS FOR SEXPE) 


* 

* 

* 

* 

% 



) 

i 

RETURNS 

EXACT POWER 

OF 10 FOR INTEGERS. 

A086 

SEXPTE 



; lO'-X (SEE SHEP ATARI BASIC $DDCC EXP10) 

A086 A9 00 


LDA 

#0 

; CLEAR TRANSFORM FLAG 

A0S8 85 Ft 


STA 

DIGRT 

; XFMFLG 

A08A A5 D4 


LDA 

FRO 


A08C 85 FO 


STA 

FCHRFLG 

; SAME AS SGNFLG REMEMBER ARG SIGN 

A08E 20 D2 A2 


JSR 

SABSVA 

; TAKE ABSOLUTE VALUE, AC-FRO 

A091 38 


SEC 



A092 E9 40 


SBC 

#$40 


A094 30 27 


BMI 

SEXP05 

; X<1 SO USE SERIES DIRECTLY (BUT CHECK FOR 0 F 

A096 A2 E6 


LDX 

#FPSCR 


A098 AO 05 


LDY 

ttFPSCR/256 


A09A 20 A7 DD 


JSR 

FSTOR 

.5 SAVE IN SCRATCH REG 

A09D 20 18 A3 


JSR 

SINTEG 

; GREATEST INTEGER O X 

AOAO 20 D2 D9 


JSR 

FPI 

i MAKE INTEGER 

A0A3 BO 27 


BCS 

SFERR3 

i RETURN IF ERROR 

A0A5 A5 D5 


LDA 

FRO+1 

; CHECK MSB 

A0A7 DO 23 


BNE 

SFERR3 

i SHOULDN'T HAVE ANY — RETURN IF ERROR 

A0A9 A5 D4 


LDA 

FRO 


AOAB 85 FI 


STA 

DIGRT 

; XFMFLG SAVE MULTIPLIER EXP 

AOAD 20 AA D9 


JSR 

IFF 

; NOW TURN IT BACK TO FP 

AOBO 20 B6 DD 


JSR 

FMOVE 

,-FRl <- FRO 

A0B3 A2 E6 


LDX 

#FPSCR 

; RELOAD FROM TEMP SCRATCH REG 

A0B5 AO 05 


LDY 

#FPSCR/256 


A0B7 20 89 DD 


JSR 

FL.DOR 


AOBA 20 07 A3 


JSR 

SFSUB 


AOBD 

SEXP05 




AOBD A5 D4 


LDA 

FRO 


AOBF DO 08 


BNE 

SEXP10 


AOC 1 A9 01 


LDA 

#1 

; 10'-0 = 1 

A0C3 20 53 A3 


JSR 

PSETO 


A0C6 4C 12 DE 


JMP 

EXP 1 1 

;$DE12 DO 10'X, SKIPPING PLYEVL LDA XFMFLG 

AOC 9 

SEXP10 




AOC? 4C 03 DE 


JMP 

EXP 1 

i DO REST OF 10^X 

AOCC 

SFERR3 




AOCC 38 


SEC 




AOCD 60 


imi 


RTS 
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:EN 


IATINC POINT ROUTINES BY C SHAW 






. . . i 

0 ? 

F HI 

* 0 IF FR 1 






o * 


1. 





gPQWFR 




AOCE 

A5 

D4 



LDA 


FRO 

AODO 

DO 

OD 



BNE 


SPDW20 

AQD2 

,A9 

00 



LDA 


#0 

A0D4 

A6 

EO 



LDX 


FR 1 

A0D6 

30 

78 



BMI 


PERR2 

AQDa 

DO 

02 



BNE 


SPQW10 

AODA 

A9 

01 



LDA 


#1 

AODC 




SP0W10 




AODC 

4C 

53 

A3 


JMP 


PSETO 

AODF 




SP0W20 




AODF 

A5 

EO 



LDA 


FR 1 

AQE1 

48 




PHA 



A0E2 

29 

7F 



AND 


#*7F 

A0E4 

85 

EO 



STA 


FR 1 

A0E6 

A2 

82 



LDX 


4FTEMP 

A0E8 

AO 

04 



LDY 


#F TEMP/ 2 56 

AOEA 

20 

D9 

A2 


JSR 


FST1R 

AOED 

20 

B6 

DD 


JSR 


FMOVE 

AOFO 

A9 

01 



LDA 


#1 

A0F2 

8D 

81 

04 


STA 


INTFLG 

A0F5 

20 

31 

A3 


JSR 


STRUNG 

A0F8 

DO 

OF 



BNE 


SP0W50 

AOFA 

A2 

82 



LDX 


#FTEMP 

AOFC 

AO 

04 



LDY 


#FTEMP/356 

AOFE 

20 

89 

DD 


JSR 


FLDOR 

A101 

20 

31 

A3 


JSR 


STRUNG 

A104 

DO 

03 



BNE 


SP0W50 

A 106 

8D 

81 

04 


STA 


INTFLG 

A 109 




SP0W50 




A109 

A2 

EO 



LDX 


#FR 1 

A10B 

AO 

00 



LDY 


#FR 1/256 

A10D 

20 

89 

DD 


JSR 


FLDOR 

AUO 

20 

58 

A1 


JSR 


SLOGTE 

A 1 1 3 

BO 

3A 



BCS 


PERROR 

A115 

A2 

82 



LDX 


ttFTEMP 

A117 

AO 

04 



LDY 


ttFTEMP/256 

A 1 19 

20 

98 

DD 


JSR 


FLD1R 

A1 1C 

20 

DB 

DA 


JSR 


FMUL 

A11F 

BO 

2E 



BCS 


PERROR 

A 121 

20 

86 

AO 


JSR 


SEXPTE 

A 124 

BO 

29 



BCS 


PERROR 

A 126 

AD 

81 

04 


LDA 


INTFLG 

A 129 

DO 

15 



BNE 


SP0W80 

A12B 

A2 

6C 


/ 

LDX 


#FHALF 

A12D 

AO 

DF 



LDY 


#FHALF/256 

A12F 

20 

98 

DD 


JSR 


FLD1R 

A 132 

A5 

D4 



LDA 


FRO 

A 134 

10 

04 



BPL 


SRQU10 


FRO - FRO FR1 « SEXPTE (FR1 * SLOGTE (FRO)) 

USES MORE ACCURATE SEXPTE INSTEAD OF EXP 10 

RETURNS EXACT INTEGER IF BOTH FRO AND FR1 ARE POSITIVE INTEGERS, 
RETURNS RECIPROCAL OF INTEGER IF BOTH ARE INTEGERS AND FR1 <0. 
RETURNS CARRY SET IF FRO < 0 OR (FRO = 0 AND FR 1 < 0) OR OVERFLOW 


i FRO = 0? 
j NO. 

; YES. 

FR 1 < 0 
FR1 > 0 
FR 1 =0 


0 -X => ERROR 

0 ~ X = 0 

0 0 = 1 


i SAVE FR 1 ' S SIGN 
i TAKE ABSOLUTE VALUE OF FR1 

; SAVE FR 1 IN FTEMP 



ASSUME NOT BOTH INTEGERS 

TRUNCATE FRO — RETURN A=0 AND EG IF FRO WAS ALREADY AN INTEGER 

FRO WAS NOT AN INTEGER 
LOAD SAVED VALUE INTO FRO 


TEST FOR INTEGER 
NOT INTEGER 

0 => BOTH INTEGER => RESULT SHOULD BE INTEGER 


; FRO 


FR 1 (MOVE ORIGINAL FRO BACK) 


LOG 10 (FRO) 

ERROR => POP FR 1 SIGN AND RETURN 
LOAD FR 1 AGAIN 


FRO <- FR 1 * L0G10 ( BASE ) 

RETURN IF ERROR 
10 FRO 

SHOULD RESULT BE INTEGER? 

NO. 

YES — ROUND TO NEAREST INTEGER 

FR 1 <- 0. 5 
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A 136 

A9 

BF 



LDA 

#$3F+*80 

A 138 

85 

EQ 



STA 

FR 1 

A13A 




SRGU10 



AI3A 

20 

F7 

A2 


JSR 

SFADD 

A13D 

20 

31 

A3 


JSR 

STRUNG 

AMO 


SPOWSO 



A14Q 

18 




CLC 


AMI 

68 




PLA 


A M2 

to 

OD 



BPL 

PRTN 

A144 

2Q 

R6 DO 


JSR 

FMQVE 

A 1 47 

A9 

01 



LDA 

#1 

At 49 

20 

53 

A3 


JSR 

PSETO 

A14C 

4C 

28 

DB 


JMP 

FDI V 

A14F 




PERROR 



A14F 

68 




PLA 


A 150 




PERR2 



At 50 

38 




SEC 


A1S1 




.PRTN 



At 5t 

60 




RTS 





COLLEEN FLOATING POINT ROUTINES BY C SHAW 


i IF FRO <0 THEN FR 1 < 05 


i FRO <- FRO ♦ FR 1 (2-LEVEL RETURN IF ERROR) 
i TRUNCATE 


i INDICATE NO ERROR? 
i RELOAD FRl'S ORIGINAL SIGN 
i DONE IF > 0 

i IF < 0 THEN TAKE RECIPROCAL 
i FRO <- 1 


; DISCARD FR1 'S SIGN 


; INDICATE ERROR 




COLLEEN FLOATING POINT ROUTINES BY C SHAW 


FRO <- NATURAL LOG (FRO) 


; RETURNS CARRY SET IF FROOO 

4 RETURNS EXACTLY 0 IF FRO = 1 

i 

A 152 SLN 

A152 2Q 5E A1 JSR LOGCHK i CHECK FOR Oil (SPECIAL CASES) 

A 155 4C CD DE JMP LOG 


i 
i 

J 


FRO <- COMMON LOG (FRO) 


SIMILAR TO SLN 


(LOG BASE 10) 


A.138 

^158 20 5E A1 
A 1 5B 4C D1 DE 


A A15E 

• A15E 38 

, A15F A5 D4 ™ 

A161 FO 13 

• 

L A 165 A2 05 

A167 

• A167 B5 D4 

A169 DD A9 A3 
A16C DO OA 

• A16E CA 

A16F 10 F6 
A171 68 

• A172 68 

A173 4C 51 A3 
A176 

• A 176 68 

L A177 68 

A178 60 


SLOG IE 

JSR LOGCHK 

JMP LOG 10 


LOGCHK ; CHECK FOR 0, 1 

SEC 

LDA FRO 

BEQ PULRTN ; LN ( 0 ) , LOG ( 0 ) => ERROR 

BMI PULRTN ; CO => ERROR => 2-LEVEL RETURN 

LDX #FPREC- 1 

LOGCL.P 

LDA FROiX- 

CMP ONEi X 

BNE RTURN2 ; NOT 1 => OK 

DEX 

BPL LOGCLP 

PLA ; SKIP LOGCHK RETURN 

PL.A 

JMP PCLRO i LN ( 1 ) =LQGTEN ( 1 ) =0 

PULRTN 

PLA 

PLA 

RTURN2 RTS 
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BASIC SINE & COS ROUTINES 


6F A3 


417C 20 AO A3 
A 1 7F 20 98 DD 
A 182 20 F7 A2 


A185 

A 185 20 6F A3 


A 188 20 AO A3 


OF A3 





'7 i: ~ ' ^ - - 

' - : ^rv jSL 5 


. i‘- Lsf— 







- , ■ " ’ //> 



TO FIX BUGS OF VERSION 5. 9 OF SHEP BASIC 


BY DAVE & LARRY — MODIFIED BY CAROL 

4-6-79 


MOD FUNCTION MAKES ROUTINES MORE ACCURATE FOR ANGLES > 360 DEGREES. 




COSINE ROUTINE — ADD 90 OR P 1/2 TO FRO TO DO SIN 

SC OS 

JSR SINMOD i TAKE ANGLE MOD 2*PI, 360 

JSR PIOVL _jJ3ET UP X & Y REGS TO LOAD PI/2 OR 90 

JSR FLD1R PUT PI/2 OR 90 INTO FR 1 

JSR SFADD FR0=FR0 + PI/2 (OR 90) 


i SINE ROUTINE 

. COMPUTE QUADRANT, GET FRACTION AND DO POLYNOMIAL, 
' THEN ADJUST FOR QUADRANT 


SINMOD 


i TAKE ANGLE MOD 2*PI, 360 


; FRO—FRO/ ( P I /2 ) OR FR0=FR0/9Q 

JSR PIOVL ; LOAD X & Y REGS TO GET PI/2 OR 90 

JSR LD1DIV 


FRO=FRO/FR 1 


rr n.om roA^-rrr, NDW HAVE 0-4 <N0T NECESSARILY INTEGER) 

IF FRO NOW FRACTION, IT IS QUADRANT 0 



A195 C9 40 
A197 90 19 



A18E A9 00 
A 190 8D 80 04 
A 193 A5 D4 


#$40 

SINF3 


ASSUME QUADRANT 0 
GET EXPONENT 
SUBTRACT 64 EXCESS 
GO IF QUADRANT 0 


A 199 A5 D5 
A19B 8D 80 04 


LDA 

STA 


FRO+l 




QUADFLG 






; SHOULD BE 0, 1, 2, OR 3 


A19E 20 B6 DD 
A1A1 20 31 A3 


JSR 

JSR 




NOW HAVE QUADRANT (0,1,2, OR 3) 


FMOVE 

STRUNC 



A 1 A7 

20 

28 

A3 

JSR 

SCHGSG 






C IF ODD QUADRANT, SET FRn=i-FRn 


A1AA 

4E 

80 

04 

LSR 

QUADFLG 


A1AD 

90 

03 


BCC 

SINF3 | 


aiaf 

20 

FD 

A2 

JSR 

ONF.qun 






j 

> SAVE ARG FOR LATER 


4132 




SINF3 



A1B2 

A2 

E6 


LDX 

#FPSCR 


A 1 B4 

AO 

05 


LDY 

#FPSCR/256 


A1B6 

20 

47 

DD 

JSR 

FSTOR 






i 

} NOW COMPUTE SINE 






; THIS CODE 

TAKFN FROM n ACT r ^ o 


A1B9 

20 

EE 

A2 

JSR 

SSQUAR F 


A1BC 

A9 

06 


LDA 

#NSCF 


A1BE 

A2 

AF 


LDX 

#SCOEF 


A1C0 

AO 

A3 


LDY 

#SC0EF/256 


; FR 1 <- FRO 
; TRUNCATE FRO 
; FRO <- TRUNC ( FRO ) -FRO 



% 


CHANGE SIGN — FRACTIONAL PART (FRO) = FRO - TRUNC (FRO) 


IS IT ODD QUADRANT? 
NO 


<- 1 —FRO 


FPSCR <- FRO 


COLLEEN FLOATING POINT ROUTINES BY C SHAW 




Moore Business Fom 


A1BC A9 06 
A1BE A2 AF 

LDA 

LDX 

#NSCF 

#SCOEF 


A1C0 AO A3 

LDY 

#SC0EF/256 


COLLEEN FLOATING POINT 

ROUTINES BY C 

SHAW 


A1C2 20 40 DD 

JSR 

PLYEVL 

EVALUATE P(X**2> 

A1C5 A2 E6 

LDX 

#FPSCR 


A1C7 AO 05 

LDY 

#FPSCR/256 


A1C9 20 E8 A2 

JSR 

LD1MUL 

FR0=SIN(X)=X*P(X**2) 


; IF LOWER QUADRANT (2 OR 3> 

THEN FR0=-(FR0) 

A ICC 4E 80 04 

LSR 

QUADFLG 

IS IT LOWER QUAD? 

Al.CF 9Q 03 

ECC 

SINF4 

NO 

A1D1 20 28 A3 

JSR 

SCHGSG 

; YES 

. A ID 4 

i 

SINF4 . 




# 

i IF ABS(FRO) 

>= 1 THEN SET 

TO 1 

A1D4 A5 D4 

LDA 

FRO 


A1D6 29 7F 

AND 

#$7F 

WITHOUT SIGN BIT 

A1D8 C9 40 

CMP 

#$40 

COMPARE $40 

AIDA 90 07. - 

BCC 

SINFIN 


A1DC A9 00 

LDA 

#0 


AIDE 85 D8 

STA 

FRO+4 

i PERFORM PSEUDO INT (FF 

1 . A1E0. 85 D9 

STA 

FRO+5 


A1E2 18 
A1E3 60 

SINFN2 CLC 
SINFIN RTS 


i NO ERROR 


(CLEAR LAST 2 BYTES) 





wm *? — ~ — — 














WF- 



’ Vrryyrv 






























yr-y 























COLLEEN FLOATING POINT ROUTINES BY C SHAW 


A1E4 


SATAN 


A1E4 A9 

00 

LDA 

#0 

A1E6 85 

FO 

STA 

FCHRFLG 

A1E8 85 

FI 

ST A 

DIGRT 

A1EA A 5 

D4 

LDA 

FRO 

At EC AA 


TAX 


A1ED 29 

7F 

AND 

#$7F 

A1EF e? 

40 

CMP 

#$40 

A1F1 30 

10 

BMI 

ATAN1 

A1F3 85 

D4 

STA 

FRO 

ALF5 8A 


TXA 


A 1 F6 29 

80 

AND 

#$80 

A1F8 85 

FO 

STA 

FCHRFLG 

A IF A E6 

FI 

INC 

DIGRT 

A1FC A2 

EA 

LDX 

#FP9S 

A1FE AO 

DF 

LDY 

#FP9S/$ 1 00 

A2QQ 20 

95 DE 

JSR 

XFORM 


FRO ARC TANGENT <FRO) 

FROM SHEPARDSON ATARI BASIC 5.9 4-5-79 (MODIFIED) 
SAME ACCURACY AS SHEP VERSION ™ USES FEWER BYTES 


/SIGN FLAG OFF 
/ AMD TRANSFORM FLAG 


/ CHECK X VS 1.0 

iX< 1 - USE SERIES DIRECTLY 

; FORCE PLUS 

;OLD FRO WITH SIGN 

; REMEMBER SIGN 


A203 

A203 


ATAN1 


E6 


A 2 

A205 AO 05 
A207 20 A7 DD 
A20A 20 EE A2 
A20D A9 OB 
A20F A2 AE 
A21 1 AO DF 


/CHANGE ARG TO (X-1)/<X+1) 

ARCTAN ( X ) , ~KX<1 BY SERIES APPROX 
d SCR /CAN'T USE FTEMP RFC 



#FPSCR 
#FPSCR/256 
FSTOR 
SSQUAR 


T USE FTEMP BECAUSE SATAN IS CALLED BY OTHER ROUTINES WHICH USE IT 



A213 20 40 DD 
A216 BO 26 
A218 A2 E6 



A21 A AO 05 
A21C 20 E8 A2 
A21F A5 FI 








A221 FO 10 
A223 A2 FO 
A225 AO DF 
A227 20 98 DD 
A22A 20 66 DA 
A22D A 5 FO 



PLYEVL 
ATNOUT 
#FPSCR 
#FPSCR/256 
LD1MUL 
DIGRT 
ATAN2 
#P I0V4 
#P I0V4/256 


i P(X*X> 
; ERROR 



/ MO. 

/YES-ADD ARCTAN ( 1 ) 


A22F 05 D4 
A231 85 D4 

A233 

A233 A 5 FE 
A235 FO 07 
^237. A2„ D.9 
A239 AO A3 
A23B 20 OF A3 
A23E.._, 



A23E 60 


-- A T NQ UT 



#P I OV 18/256 
LD1DIV 


/DIVIDE BY PI/180 TO CONVERT TO DEGREES 




RTS 


— 







COLLEEN FLOATING POINT ROUTINES BY C SHAW 








Moore Bw»«ne»* 








COLLEEN FLOATING POINT ROUTINES BY C SHAW 


FRO <- SQUARE ROOT (FRO) 


FROM SHEPARDSON ATARI BASIC 5. 9 4-5-79 (MODIFIED) 
SAME ACCURACY AS SHEP VERSION — USES FEWER BYTES 


USES NEWTON-RAPHSON ITERATION 






i 

FPRIME ( Y ) = 2*Y 





t 

YCI+13 

= YCID - F ( 





/ 

ERROR 

EXIT 

A23F 




i 

SQRERR 



A23F 

38 




SEC 


A240 

60 




RTS 






i 

ENTRY 

POINT 

A241 




i 

SSQRT 



A241 

A2 

EO 



LDX 

#FR 1 

A243 

20 

46 

DA 


JSR 

ZF1 

A246 A2 OQ 



LDX 

#0 

A248 

86 

FI 



STX 

DIGRT 

A24A 

E8 




INX 


A24B 

86 

El 



STX 

FR 1 + 1 

A24D 

A5 

D4 



LDA 

FRO 

A24F 

30 

EE 



BMI 

SQRERR 

A251 

-C9_ 

J3E 



CMP 

#$3F 

A253 

FO 

09 



BEQ 

FSQR 

A255 

AA 




TAX 


A256 

E8 




INX 


A257 

86 

EO 



STX 

FR 1 

A259 

86 

FI 



STX 

DIGRT 

-A25B 20 28 DB 


JSR 

FDIV 

A25E 




FSQR 



A25E 

A9 

06 



LDA 

#6 

A26Q 

_S5^ 

EF 



SlTA 

ESIGN 

A262 

A2 

E6 



LDX 

#FSCR 

A264 

AO 

05 



LDY 

ttFSCR/256 

A266 

_2 0_ 

-A2L 

_DD 


JSR 

FSTOR 

A269 

A9 

02 



LDA 

#2 

A26B 

20 

FF 

A2 


JSR 

1NTSUB 

A26E 

A2 

E6 



LDX 

#FSCR 

A270 

AO 

05 



LDY 

#FSCR/256 

A272 

20 

E8 

A2 


JSR 

LD1MUL 

-A275 




-SQfiLF . 



A275 

A2 

EC 



LDX 

#FSCR 1 

A277 

AO 

05 



LDY 

#FSCR 1/256 

A279 20 

A 7 

DO 


JSR 

FSTOR 

A27C 

20 

B6 

DD 


JSR 

FMOVE 

A27F 

A2 

E6 



LDX 

#FSCR 

A281 

AO 

_Q3_ 



LDY 

#FSCR/256 

A283 

20 

89 

DD 


JSR 

FLDOR 

A286 

20 

28 

DB 


JSR 

FDIV 

A289 A2 EC 



LDX 

#FSCR i 

A28B 

AO 

05 



LDY 

#FSCR 1/256 

A28D 

20 

98 

DD 


JSR 

FLD1R 

A290 

2G 

.60 

JDA 


JSR 

FSUB 

A293 

A2 

6C 



LDX 

#FHALF 


/ FPRIME ( Y C I 3 > = YC I 3 + . 5*( < X/YC I 3 )-YC I 3 ) 




i XOSQRT ( X ) 


; FR1 


ALL O'S 


; ERROR IF CO 


; X IN RANGE OF APPROX - GO DO IT TO IT 


;MANTISSSA = 1 
; NOT IN RANGE - TRANSFORM 
j X/ 1 00#-*N 
; SQR ( X ) O. lOXCl 




, STASH X IN FSCR 




; X*(2-X) : 1ST APPROX 


j Y->FSCR 1 
; Y->FR 1 




; X/Y 




; ( X/ Y ) — Y 





Moore Buimeu Forres, Inc 


A2BD E9 40 



COLLEEN FLOATING POINT ROUTINES BY C SHAW 


A2B3 A2 EO 
A2B5 20 46 DA 
A2B8 A5 FI 
A2BA FO 16 
A2BC 38 



A295 

A297 

AO 

20 

DF 

E8 

A2 

LDY 

JSR 

#FHALF/256 

I n i mi ti 

i ■ 5*< C X/Y ) — Y ) 
; DELTA 0 

A29A 

A29C 

A29E 

A5 

FO 

A2 

D4 

OE 

EC 


LDA 

BEQ 

LDX 

1 rlUL 
FRO 

SQRDON 
#FSCR 1 

A2A0 

A2A2 

A2A5 

AO 

20 

20 

05 

98 

66 

DD 

DA 

LDY 

JSR 

JSR 

#FSCRl/256 

FLD1R 

FADD 


A2AS 

A2AA 

A2AC 

C6 

10 

EF 

C9 


DEC 

BPL 

SQRDON 

ESIGN 

SQRLP 

J Y-Y+DELTA Y 
; COUNT S< LOOP 

A2AC 

A2AE 

A2B.0 

A2 

AO 

20 

EC 

05 

89 

DD 

LDX 

LDY 

JSR 

#FSCR 1 
#FSCR 1/256 
FLDOR 

i DELTA =0—i 


LDX 

JSR 

LDA 

BEQ 

SEC 

SBC 


#FR 1 
ZF1 
DIGRT 
SABSVA 


WAS ARG TRANSFORMED? 

' FR 1 <- ALL O'S AGAIN 
; NO FINI 


#$40 


A2BF 4A 


I SR 

A 

A2C0 08 
A2C 1 18 
A2C2 69 40 


PHP 

CLC 

ADC 

H 

U<t: A A 

A2C4 85 EO 
A2C6 A9 01 
A2C8 28 


STA 

LDA 

PLP 

FR 1 
#1 

A2C9 90 02 
A2CB A9 10 
A2CD 

SQR? 

BCC 

LDA 

SQR2 

#$10 

A2CD 85 El 
A2CF 20 DB DA 
A2D2 

SABSVA 

STA 

JSR 

FR 1 + 1 
FMUL 

A2D2 A5 D4 
A2D4 29 7F 
A2D6 85 D4 


LDA 

AND 

STA 

FRO 

#$7F 

tda 

A2D8 
A2D8 60 

SABRTN 

D 1 n 

RTS 

r KU 


; YES - TRANSFORM RESULT TO MATCH 
/ DIVIDE EXP BY 2 
i SAVE CARRY ( LSB OF DIGRT) 


; MANTISSA = 1 

; RELOAD CARRY (LSBIT OF DIGRT) 
; WAS EXP ODD OR EVEN 
; ODD - MANT = 10 


1 SQR ( X ) = SQR < X/100**N ) * <10*#N) 
; FRO <- ABSVAL < FRO ) AOFRO 







COLLEEN FLOATING POINT ROUTINES BY C SHAW 






:n floating point routines by C SHAW 






the following routines are called by the previous routines. 

IN GENERAL./ THEY DO a 2-LEVEL RETURN WITH CARRY SET IF AN 

ERROR OCCURS/ THUS BYPASSING THE REMAINDER OF THE CALLING ROUTINE 


A2D9 

A2D9 86 FC 
A-inn o.i rn 


i 

FST1R 

STX 

STY 

FLPTR 

FLPTR+1 

i LIKE 

FSTOR 

EXCEPT 

Aduo OH r U 

A2DD AO 05 
A2DF 

AA 

FSLOP 

LDY 

1_DA 

#5 

FRIa y 




A2DF 07 LU 
A2E2 91 FC 
A2E4 88 

UU — 


STA 

DEY 

BPL 

(FLPTR)/ Y 
FSLOP 




A2c.6 1U ro 

A2E7 60 



RTS 





A2E8 

A2E8 20 98 

a 'ico a r ci 

DD 

LD1MUL 

JSR 

JMP 

FLD1R 

SFMUL 

; FRO 

<- FRO 

* DATA 

A nCC 

r\c. 

FFftUAR 






A2Ee. 

A2EE 20 B6 

AOC 1 

DD 

SFMUL 

JSR 

FMOVE 

; FRO 
i FRO 

FRO 
<- FRO 

* FRO 

* FR1 

A<=:r 1 

A2F 1 20 DB 
A2F4 BO 16 

DA 


JSR 

BCS 

RTS 

FMUL 

CRYSND 




Acdr o oU 
AOF7 


SFADD 



; FRO 

<- FRO 

+ FR1 

nc,r / ... 

A2F7 20 66 

A2FA BO 10 
a ocr ao 

DA 


JSR 

BCS 

RTS 

FADD 

CRYSND 




nc.r U Qw _ 
APFD A9 01 


ONESUB 

LDA 

#1 

; FRO 

<- 1-FRO 

r1 Cmm\ U “7 W A 

A2FF 
aocp dp 


INTSUB 

PHA 


; FRO 

<- A - 

FRO 

Hc.rr 

A300 20 B6 

DD 


JSR 

FMOVE 




A303 68 



PLA 





A304 20 53 

A3 


JSR 

PSETO 

; A MUST BE 

FROM 0- 


A307 

A3Q7. 20 6 0 DA. 

A30A 

A30A 90 02 
A30C 
A30C 68 
A30D 68 

A3GE 60 

A30F 

A3QF 20 98 DD 
A3 12 

A3 12 20 28 DB 
A315 BO f 5 
A3 17 60 


SFSUB 

JSR 

CRYCHK 

BCC 

CRYSND 

PLA 

PLA 

RETURN RTS 


FSUB 

RETURN 


LD1DIV 

SFDIV 


JSR 

JSR 

DCS 

RTS 


FLD1R 

FDI V 
CRYSND 


i FRO <~ FRO - FR1 

; CHECK CARRY TO SEE IF THERE IS AN ERROR 
; RETURN IF CARRY CLEAR 

; DO A 2-LEVEL RETURN IF ERROR 


; FRO <- FRO / (X, Y) 
; FRO <- FRO / FR1 





COLLEEN FLOATING POINT ROUTINES BY C SHAW 


GREATEST INT O FRO 



PART OF INT ROUTINE FROM SHEP ATARI BASIC BOD5-BOEE 

DOES NOT AFFECT FR1? 


A331 


STRUNG 


A331 

A5 

D4 



LDA 

FRO 

A333 

29 

7F 



AND 

#*7F 

A333 

38 




SEC 


A336 

E9 

3F 



SBC 

#*3F 

A338 

10 

02 



BPL 

XINT1 

A33A 

A9 

00 



LDA 

#0 

A33C 




X INT 1 



A33C 

AA 




TAX 


A33D 

A9 

QO 



LDA 

#0 

A33F 

AS 




TAY 


A340 




INT2 



A340 

EO 

05 



CPX 

#FPREC-1 

A342 

BO 

07 



BCS 

INTRTN 

A344 

15 

D5 



ORA 

FRO+l, X 

A346 

94 

D5 



STY 

FRO+l » X 

A348 

E8 




I NX 


A349 

DO 

F5 



BNE 

INT2 

A34B 




INTRTN 



A34B 

48 




PHA 


A34C 

20 

00 

DC 


JSR 

NORM 

A34F 




INTRT3 



A34F 

68 




PLA 


A350 

60 



INTRT2 

RTS 


A35 1 




PCLRO 



A351 

A9 

00 



LDA 

#0 

A353 




PSETO 

J 



A353 

48 




PHA 


A354 

20 

44 

DA 


JSR 

ZFRO 

A357 

68 




PLA 


A358 

FO 

06 



BEQ 

CLRTN 

A35A 

85 

D5 



STA 

FRO+l 

A35C 

A9 

40 



LDA 

#$40 

A35E 

85 

D4 



STA 

FRO 

A360 




CLRTN 



A360 

18 




CLC 


A361 

60 




RTS 



; TRUNCATE FRO 

RETURN A=0 AND EQ IF FRO WAS ALREADY AN INTEGER 

; GET EXPONENT 
i AND OUT SIGN BIT 

i GET LOCATION OF 1ST FRACTION BYTE 
i IF >= O THEN BRANCH 
i ELSE SET -0 

i PUT IN X AS INDEX INTO FROM 
i SET ACCUM TO ZERO FOR ORING 
; ZERO Y 


IS D. P. LOC >= 5? 

IF YES; LOOP DONE 

OR IN THE BYTE OF MANTISSA 

ZERO BYTE 

POINT TO NEXT BYTE 
JMP 

; SAVE OR OF ALL FRACTIONAL BYTES 
; NORMALIZE 

i RELOAD 


; CLEAR FRO 

RETURN WITH CARRY CLEAR (CC) 

; SET FRO TO INTEGER PASSED IN A (MUST BE BCD OR <10> 
RETURN WITH CARRY CLEAR (CC) 

i FRO <- 0 

; 0 => ALL O'S 

i SET EXPONENT 



.LEEN F LOAT I NO POINT ROUTINES BY C SHAW 






SINE 

ROUTINES 

A362 

SINLD 



A362 A2 BF 


LDX 

#P 12 

A364 AO A3 


LDY 

#P 12/256 

A366 A5 FB 


LDA 

RADFLG 

A368 FQ 04 


BEG 

SNM0D3 

A36A A2 E5 


LDX 

#C360 

A36C AO A3 


LDY 

#C360/256 

-A36E 

_ 3NMQD3 



A36E 60 


RTS 


. A36F 

SINMQD. 



A36F A5 D4 


LDA 

FRO 

A371 29 7F 


AND 

U*7F 

A373 C? 4? 


CMP 

#$45 

A37S BO 95 


BCS 

CRYSND 

A377 A2 E6 


LDX 

#FPSCR 

A3 7 9 AO 05 


LDY 

#FPSCR/256 

A37B 20 A7 DD 


JSR 

FSTOR 

A37E 20 62 A3 


JSR 

SINLD 

A3QI 20 _93 .PD 


VSR 

FLD1R 

A384 20 12 A3 


JSR 

SFDIV 

A387 20 18 A3 


JSR 

SINTEG 

A3 8 A 20 62 A3 


JSR 

SINLD 

A38D 20 98 DD 


JSR 

FLD1R 

A390 20 FI A2 


JSR 

SFMUL 

A3 9 3 20 B 6 DD 


JSR 

FMOVE 

A396 A2 E6 


LDX 

ttFPSCR 

A398 AO 05 


LDY 

#FPSCR/256 

A39A 20 89 DD 


JSR 

FLDOR 

A39D 4C 07 A3 


JMP 

SFSUB 




i LOAD 2*P I 


> DEGREES => LOAD 360 


; FIND ANGLE MOD 2*PI OR 360 DEPENDING ON RADFLG 


j OUT OF RANGE — 2-LEVEL RETURN 
i SAVE IN TEMP SCRATCH REG 


; LOAD 2*P I OR 360 

; ANGLE/360 
; INT (ANGLE/360) 

» LOAD 2*PI OR 360 

; INT ( ANGL.E/360 > *360 

> RELOAD ANGLE 


; ANGLE - INT ( ANGLE/360 ) *360 





« 


A3A0 

A3A0 

A3A2 

A9 

18 

CD 

PIOVL 

LDA 

CLC 

; LOAD X & Y REGS IN PREPARATION FOR LOADING REG 0 OR 1 WITH PI/2, 90 OR 100(IF GRAD) 

#R A DP 1 2 

A3A3 

65 

PB 

ADC 

RADFLG - 

A3A5 

AA 


TAX 


A3A6 

AO 

A3 

LDY 

#RADP 12/256 

A3A8 

60 


RTS 
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COLLEEN FLOATING POINT ROUTINES BY C SHAW 








DATA 

A3A9 40 01 00 ONE .BYTE >40. *01 , 0. 0. 0* 0 il 

A3 AC 00 00 00 

A3AF SCGEF 

A3AF BD 03 55 BYTE *BD. >03# >55. >14, *99. >39 *- 00000355149939 

A3B2 14 99 39 

A3B5 3E 01 60 .BYTE *3E. >01 * >60. >44. >27, >52 i 0 0001 60442752 

A3B8 44 27 52 

A3BB BE 46 Bi BYTE *B£, *46. >31. *75, *43, *55 i 004681754355 

A3BE 75 43 55 

A3C1 3F 07 96 BYTE *3F. *07. >96. >92. >62. >39 i O 0796926239 

A3C4 9 2 A2 -39 

A3C7 BF 64 59 .BYTE *BF. >64. >59. >64, >08. >67 i - 6459640867 

A3CA 64 08 67 - ■ , M : ' r 

A3C0 40 01 57 RALE 12 . BYTE *4Q, *01, >57. *C7, *96, *32 iPl/2 - 1.570796327 PART OF SCQEF 

A3D0 07 96 32 

A3D3 40 90 00 . BYTE >40, >90. 0, 0. O. 0 *90 < DEGREES ) 

A3D6 00 00 00 

A3D9 3F 01 74 PI0V18 BYTE >3F. >01, >74. >53. >29, >25 i PI/190 « 0174532925 DEG->RAD 

A3DC 53 29 25 

A30F— 40 06 28 i»12- BYTE >40, >06, >26. *31, >85, >31 ,2«PI - 6.28318531 

A3E2 31 85 31 

A3E5 41 03 60 C360 .BYTE >4 1 , >03. >60- 0. 0. 0 *360 

A3E8 00 00 00 


BFFA 00 AO 
BFFC 00 04 
BFFE CD AO 


•■*BFFA 
„.WORD START 
. BYTE 0, 4 
. WORD INIT 
END 


.CARTRIDGE START INFO 
, COLD/WARM START ADDRESS 
, RUN CARTRIDGE 
. POWER UP START VECTOR 


SYMBOL TABLE 


AFP 

D800 

ATAN1 

A203 

ATAN2 

A233 

ATCOEF 

t ATNOUT 

A23E 

C360 

A3E5 

CIOV 

E456 

CIX 

CLRTN 

A360 

CONTIN 

A032 

CR 

009B 

CRYCHK 

CRYSND 

A30C 

DIGRT 

00F1 

EEXP 

OOED 

ERRMSG 

ESIGN 

OOEF 

EXP 

DDCO 

EXP 1 

DE03 

EXP10 

EXP 1 1 

DEI 2 

FADD 

DA66 

FASC 

D8E6 

FASC2 

FCHRFL 

QQFO 

FDIV 

DB28 

FHALF 

DF6C 

FLDOR 

FLD1R 

DD98 

FLPTR 

OOFC 

FMOVE 

DDB6 

FMUL 

FP9S 

DFEA 

FPI 

D9D2 

FPREC 

0006 

FPSCR 

FPSCR1 

Q5EC 

FPIR2 

OOFE 

FRO 

00D4 

FR1 

FR2 

OOEo 

FRE 

OODA 

FRX 

OOEC 

FSCR 

FSCR1 

05EC 

FSLOP 

A2DF 

FSQR 

A25E 

FSTOR 

FST1R 

A2D9 

FSUB 

DA60 

FTEMP 
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